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MODULE CPYNAM ( 


foleleleoto) 
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BEGIN 


Se 


' 
SRO R RARER RARE AAAAAAAERAAAAAAAKE HAHAHA AE HEAT ATRAAAAAEAAAAAAERAAEAAeAeEEe 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


t® THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
ON ACCORDANCE W THE TERMS OF 


AND MAY BE USED AND COPIED 
H H_ TH 
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; ; 5 
3 ¢ : 3 
; § 5 1 : 
g 1 $ 
3 8 . 7 3 
; 9 y : 
3 ie 8 1 : a : 
3 * 3 
3 ig 0 § 1 * $ 
ao 0014 1 * ; 
gs. 0015 1 !« Y IN ITH SUCH LICENSE AND WIT ein. : 
; 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
3 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
5 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
H }} ; : :* TRANSFERRED. * : 
P4 . « ® Ps 
; 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
3 $$ 0 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT a : 
3 $7 8 Z ' ie CORPORATION. * 3 
3 'e * $ 
; $e 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
: $8 80 $ : fn SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * | 3 
3 ' * 3 
; 0098 1 !e * | 3 
4 , 594 1 Se eeeRAA AAR AAAAAAAAAAAAAEAAETAEE ATTA A ARATE REE AAEEAAARREEAREReReeeeee Py 
; 00 1 : 
: 1 0031 1 !++¢ 3 
3 ; 0035 1! 3 
ae 0033 1 ! FACILITY: F11ACP Structure Level 1 ; 
; 34 0034 1! : 
3 $2 0035 1 ! ABSTRACT: F 
3 6 0036 1! , 5 
‘ie 0037 1! This routine copies the file name string in the buffer descriptor : 
; 0038 1! acket into the result name string, if present. This routine must 3 
; 0039 1! e called in kernel mode. : 
; 460 0040 1! 3 
3 41 0041 1 ! ENVIRONMENT: : 
3; «6 Bneg 1! : 
es 0043 1! STARLET operating system, including privileged system services 3 
:; 644 nk: . 3 and internal exec routines. : 
3; 665 045 1! : 
: 646 0046 1 !-- 3 
3 7 0047 1! : 
; 48 Bee 1! | : 
3 rH sib ; AUTHOR: Andrew C. Goldstein, CREATION DATE: 6-Jun-1978 1:45 | : 
4 . | e 
: 24 51 1 ! MODIFIED BY: : 
3 26 O3¢ 1! 3 
; § 053 1! A0100 ACG00001 ; Andrew C. Goldstein, 10-Oct-1978 20:02 3 
; «54 54 1! Previous revision history moved to F1I1A.REV 3 
: 5 055 1 !ee 3 
3 6 026 1 3 
: 7 0057 #1 3 
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PYNAM 16-Sep-1984 00:05:4 VAX-11 Bliss-32_ V4.0-742 Page 3. 

vo4~000 1e=8e=-1986 19:30:19 DISKSYMSMASTERSEF TIX.SRCICPYNAM.B32;1°7" (2). 

; 6) } 9 GLOBAL ROUTINE COPY_NAME (ABD) = 
: 88 1052 1 !+¢ | ; 
i 64 1088} | ; 
; 665 4 i FUNCTIONAL DESCRIPTION: ; 
: 89 1 $ 1 i This routine copies the file name string in the buffer descriptor ‘ 
; «668 1 1! acket into the result name string, if present. This routine must ° 
3 9 1 28 1! called in kernel mode. ° 
. 1960 1 | : 
; 1061 1 } CALLING SEQUENCE: ; 
BS . 1062 1! COPY_NAME (ARG1) 3 
; | 7% 1068 1 i 4 
Ee 1064 1 ! INPUT PARAMETERS: ; 
3 g 1992 : ARG1: address of buffer descriptor packet ; 
; 106? 1 IMPLICIT INPUTS: 
pote pio ee 
: 81 1090 | i OUTPUT PARAMETERS: : 
: BS 1072 1 | nt | 
; BS 1078 1 i IMPLiciT ouTPuTs: | ; 
Ste G8 hee | 
; 89 1076 1 | ROUTINE VALUE: | ; 
pees 2) ee ed 
: 90 1079 1! SIDE EFFECTS: 3 
; (91 1080 1! buffer packet altered ° 
nee 1081 1! : 
; ee 1 f= : 
; 9% 1083 1 ; 
; 95 1084 2 BEGIN : 
: 38 1988 MAP ; 
; 98 1087 ABD : REF BBLOCKVECTOR C,ABDSC_LENGTH]; ! buffer packet arg ; 
: 100 1089 
; 101 1090 2 CHSCOPY ( .ABDCABDS NAME, ABD$W_COUNT], ; 
; 10¢ 1093 ABDCABDSC_NAME, ABDSW_TEXT) + .ABDCABDSC_NAME, ABDSW_TEXT] + 1, é 
9 1 -ABDCABDSC_RES, ABDSW_COUNTI, ; 
; 108 109% ABDLABDSC RES. ABD$W_TEXT] + .ABDCABDSC_RES, ABDSW_TEXT] + 1 | ; 
: 19 1996 ‘ ‘sage 
; 108 1 37 IF ,ABDCABDSC_RESL. ABD$W_COUNT] GEQ 2 | 
: 110 1099 (ABDCABDSC RESL, ABDSW_TEXT] + .ABDCABDSC_RESL, ABDSW_TEXT] + 1)<0,16> : 
; 1 1100 = .ABDCABDSC_NAME, ABDSW_COUNT); 
Pie oH gerne at 
3 195 1104 1 END; ! end of routine COPY_NAME | ; 
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BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CPYNAM/OBJ=OBJ$:CPYNAM MSRC$:CPYNAM/UPDATE=(ENHS$: CPYNAM) 

Size: 52 + 0 data bytes 

un Time: 
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